# 示例1: 无参数的函数

greet <- function() {
  return("Hello, World!")
}

# 调用函数
greet()


# 示例2: 带有参数的函数

add_numbers <- function(num1, num2) {
  sum <- num1 + num2
  return(sum)
}

# 调用函数
result <- add_numbers(5, 7)
result


# 示例3: 默认参数值的函数
multiply_numbers <- function(num1, num2 = 2) {
  return(num1 * num2)
}

# 调用函数，只传递一个参数
result <- multiply_numbers(4)
result

result <- multiply_numbers(4, 3)
result

#------------
#任务二
#------------

calculate_mean <- function(numbers) {
  sum_of_numbers <- sum(numbers)
  count <- length(numbers)
  mean <- sum_of_numbers / count
  return(mean)
}

# 使用函数
my_numbers <- c(2, 4, 6, 8, 10)
mean_value <- calculate_mean(my_numbers)
mean_value

#------------
#任务三
#------------

is_positive <- function(num) {
  return(num > 0)
}

# 使用函数
is_positive(5)  # 输出: TRUE
is_positive(-3) # 输出: FALSE

#------------
#任务四
#------------

celsius_to_fahrenheit <- function(celsius) {
  fahrenheit <- (celsius * 9/5) + 32
  return(fahrenheit)
}

# 使用函数
temperature_f <- celsius_to_fahrenheit(0)
temperature_f

#------------
#任务五
#------------

introduce_myself <- function(name, age) {
  message <- paste("Hello, my name is", name, "and I am", age, "years old.")
  print(message)
}

# 使用函数
introduce_myself("Alice", 30)